home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Date-Time, Determining if date falls on weekend < prev    next >
Encoding:
Text File  |  1997-07-16  |  394 b   |  11 lines
  1. Description: Function returns True if date falls on a weekend
  2.  
  3. 'Public Function IsWeekend(ByVal vntDate As Variant) As Boolean
  4.      Dim bResult         As Boolean
  5.      If IsDate(vntDate) Then
  6.        If (WeekDay(vntDate) Mod 6 = 1) Then bResult = True Else bResult = False
  7.      Else
  8.        Err.Raise 13, "Type Mismatch, Must Be Date"
  9.      End If
  10.      IsWeekend = bResult
  11.  'End Function